1 REM ********************************* 2 REM * * 3 REM * DEMO-PROGRAMM ZUM THEMA * 4 REM * * 5 REM * TEXT UND GRAFIK * 6 REM * AUF EINEM BILDSCHIRM * 7 REM * * 8 REM * HEIMO PONNATH HAMBURG 1984 * 9 REM * * 10 REM********************************* 15 CLR:PRINTCHR$(147):Z=10:S=10:GOSUB1000:PRINT"ZUVOR NOCH EINE FRAGE:":PRINT 20 INPUT"IST HIRES-3 KOMPLETT GELADEN (J/N)";A$ 25 IFA$="N"THENPRINT:PRINTCHR$(18)"BRAUCHEN SIE ABER!"CHR$(146):END 30 POKE52,128:POKE56,128:SYS37498:PRINTCHR$(147) 40 REM ++++++ SINUSKURVE ZEICHNEN +++++ 45 DEFFNA(X)=SIN(X):XU=-2*(null):XO=2*(null):YU=-2.5:YO=2:TRS,XU,XO,YU,YO:HFL,6,14 50 FUNKT,A,XU,XO:TLN,XU,0,XO,0:TLN,0,YU,0,YO:REC,0,0,319,199 55 REM ++++++ DER TEX-BEFEHL ++++++++++ 60 TEX,"DIES IST EINE SINUSKURVE",3,8 65 REM +++++ BILDSCHIRMAUFSPALTUNG ++++ 70 SYS35256:SYS34647:Z=21:S=0:GOSUB1000:PRINT"WUENSCHEN SIE EINE SKALIERUNG"; 75 INPUT"(J/N)";A$:IFA$="N"THEN115 80 REM +++++++ SKALIERUNG ++++++++++++ 85 DEFFNX(X)=INT(39*(X+2*(null))/(4*(null))):DEFFNY(Y)=INT(24*(2-Y)/4.5) 90 FORX=-6TO6:TLN,X,0,X,-.1:X$=STR$(X):A=FNY(-.3):B=FNX(X) 95 TEX,X$,A,B:NEXTX 100 TLN,0,1,-.2,1:TLN,0,-1,-.2,-1:A=FNY(1):B=FNX(.5):TEX,"1",A,B:A=FNY(-1) 105 B=FNX(.3):TEX,"-1",A,B:CLR:INPUT"HARDCOPY (J/N)";A$:IFA$="J"THENGOSUB2000 110 REM +++++ PROGRAMMENDE ++++++++++++ 115 Z=21:S=0:GOSUB1000:PRINT"GEBEN SIE NACH READY EIN:SYS35377:HOF " 120 END 999 REM ++++++ UP CURSOR SETZEN +++++++ 1000 POKE214,Z:POKE211,S:SYS58640:RETURN 1999 REM +++++++ UP HARDCOPY ++++++++++ 2000 SYS35377:OPEN1,4,10:PRINT#1:CLOSE1:SYS34865:SYS35256:RETURN